
oota macro                    ; oottaa merkki nppimistlt
   move.w   #0,d3
   move     #1,-(sp)
   trap     #1
   addq.l   #2,sp
   move.b   d0,d3
   sub.w    #48,d3
   endm                       ; macron lopetus

lue macro                     ;lukee ohjetekstin
   move     #9,-(sp)
   trap     #1
   addq.l   #6,sp
   endm

   pea      terve(pc)
   lue
   move.l   '**',d5           ; printer-kohdan tunnistus koodista
   move.w   #4,-(sp)
   move.w   #33,-(sp)
   trap     #14                ;printerconfig
   addq.l   #4,sp              ;epson matriisi = 4

   move     #23,-(sp)
   trap     #14
   addq.l   #2,sp              ;get time
   move.l   d0,d5
   tst.w    d0
   bne      aika               ; jos se ei ole nolla, mene loppuun

   pea      teksti(pc)
   lue                         ;ohjeteksti
   move.l   #0,d4
   move.l   #0,d5              ; nollaus

   oota
   mulu      #10,d3
   move     d3,d4
   oota
   add.w    d3,d4
   move     d4,d5              ;pivt

   pea      piste(pc)
   lue                         ;piste vliin

   oota
   mulu      #10,d3
   move     d3,d4
   oota                        ;kk
   add.w    d3,d4
   mulu     #%100000,d4
   add.w    d4,d5
   move.l   #'**',d4              ; tunnistus  ennen vuosilukua
   move     #9,d4                 ; vuosi 1989
   mulu     #%1000000000,d4
   add.w    d4,d5                 ; vuodet
   move.l   d5,d4

   and.w    #%111111111111111,d5
   clr.l    d3                         ;laajenna 32-bittiseksi
   move.b   #16,d3
   asl.l    d3,d5

   add.w    #%111000001001000,d5       ;summassa joku aika
   and.l    #%111111111111111111111111111111,d5

aika
   move.l   d5,-(sp)
   move     #$2b,-(sp)                  ; ota aika kyttn
   trap     #1
   addq.l   #4,sp
   move     #$2d,-(sp)
   trap     #1
   addq.l   #4,sp

   move.l   d5,-(sp)                    ;aseta mys keyboard aika
   move     #22,-(sp)
   trap     #14
   addq.l   #6,sp
   pea      kurs_pois(pc)
   lue
   RTS
teksti  dc.b 10,13,10,13," * pivys __ __.-89.*"
        dc.b 27,68,27,68,27,68,27,68,27,68,27,68,27,68 ; kursori takaisin
        dc.b 27,68,27,68,27,68,27,68,27,101,0
teksti2 dc.b 10,13,"   klo.    ",0
kurs_pois
        dc.b 27,102,0
piste   dc.b ".",0
ohje    dc.b "vuosi byte D5 (09) ",0
ohje2   dc.b "printerconfiguraatio paikassa 2F (04) ",0
terve   dc.b   10,13,"   Morjens taas !",0
extra   dc.b " tm on sektorintytett ",0
extr2   dc.b " viel lis puppua viruksen tielle !",0
        end

